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IDENTIFICATION 
PRODUCT CODE: MAINDEC-11-DZKEB-f 
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1. ABSTRACT 
we TEST IS TO BE USED AS AN EAE LOGIC TE 
WITH SPECHPIc NUMBER COMBERATIONS. 
2. REQUIREMENTS 
2.1 EQUIPMENT 


HETHOR LITHOUT THE HARDWARE SHITCH REGISTER 


2.2 STORAGE 
2.2.1 PROGRAM STORAGE - THE ROUTINE USES 8K MEMORY 


ST FOR THE POP-11 
TIONS OF THE EAE 


3. LOADING PROCEDURE 


mace ro tm FOR NORMAL ABSOLUTE TAPES SHOULD BE FOLLOWED. 


4.1 CONTROL SWITCH SETTING 
STARTING A S SHOULD BE SET AS INDICATED. 
aad y oR pEGiStER 15 SELEC 
FOLLOWING WILL 
REFER TO SECTION 6.1, ree For MORE INFORMATION### 
q 
4.2 STARTING ADDRESS OR ADDRESSES 
5A=200 A 


4.3 PROGRAM AND/OR OPERATOR ACTION 


LOAD PROGRAM INTO MEMORY. 
ay STARTING ADDRESS 


SeTSHITGHES (SEE 5) ALL DOWN FOR WORSE CASE 


Reds HEMP une SES 


(REFER 10'S SECTION TF 1 FOR OPERATOR OPTIONS) 
oh ng A LOOP AND 


THE 
BELL WILL RI “ONCE PER PASS OF THE PROGRAN. 
A MINIMUM OF TWO PASSES SHOULD 


é 
SRRLOVHASSRBIRRIOHHB Isat FIN SSo VERT S BoE LON BSH FASS es 
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ALWAYS BE RUN. 


en | re re ee oe eee 


ce ee ee ~~ oe 


-_———- = me ee me me = a re en ee ee 
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OPERATING PROCEDURE 

OPERATIONAL SWITCH SETTINGS 
OR ee 
Apne SN JEST. (BELL WILL RING AT COMPLETION 


SWITCH SETTINGS ARE 


SWIS = 1 OR UP ... HALT ON ERROR 

SHIN = 1 OR UP ... SCOPE LOOP 

13 = 1 OR UP ... NH PRINT T 

12 = 1 0R UP ... INHIBIT ING 

1! = 1 OR UP ... INHIBIT ITERATION LOOP 

SHO = 1 OR UP BELL ON ERROR 

suo = 1 oR Oe: min SO 

SWOO = 1 OR UP ... INHIBIT SHI PHORAAL LSE. TEST 
F IACNOSTI SUITCH 
REGISTER THEN A Taare SUIT REG BSED WHICH ALLOWS 
THE Su MITCH ae Se ne tt REGISTER 
BNO TT CONTAINS ACL ONES Ct ree MARE SUITOR 
REGISTER (LOC. 176) IS USED. 

CONTROL: 


SO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
REGISTER (LOC, 176) Are FROM THE TTY. THIS CAN BE ACCOMPLISHED BY 


0 TRE SAA tts RRR sEad? OTe OTe 


2) THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= (XXXXXX IS THE OCTAL CONTENTS 
OF THE SOF SWITCH REGISTER. ) 


3) eT aiotiie at tthe ee OS UR Cm Oe OS 
* EE BEN EPA el SWTRE 
ake acted chet 


B) IF A CONTROL U <tU> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 
BACK TO STEP é. 
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3 5.2. SUBROUTINE ABSTRACTS 
§.2.1 BEGIN SA 200 
5.2.2 SCOPE 


THIS SUBROUTINE CALL IS PLACED BETWEEN EACH SUBTE 
IN ADORE TRUCTION sat ea THE STAR BRT ING 
ST 


Loge TS Re Pulte dure 0 


U ART OF THE HE SCOPE seers 
STED F TTO0P oles re WILL 
ge deo OR, IF Sear oPnT. NeEst THe NEXT SUBTEST 
IS ENTERED. SWITCH 11 ON A 1 RHTeITe ITERATI 
OF SUBTESTS. NOTE: SUPPORTS CONT-G ROUTINE 


§.2.3 HLT 


Is "SAILING Se isiesrrine Ay AN RODRESS. THAT TAGS 
THE TIME fue Fal SuPPORTS CONT-G ROUTINE. 


5.2.4 TRTRAP 
ih ie ee Pat eee 


TRAP 
FIER ERCH INSTRUCT NSTRUCTION. IRST INS peg thy 
1S AN “RT CH RETURNS TO THE 


oe ED SEQUENCE. OF NETRUCTION IS SEQUENCE 
2 EonTIWeD FILL THE OF THE PROGRAM LOOP 





SEBSRREBBE BIS oll FINS GRATE RES eee 


mo ce ont ee. 
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SR RSS RSS Nioteones 


rm 
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§.2.5 


5.3 
§.3.1 


6.2 





G01 
TRAPCATCHER 


erereereeee 


IONS STARTING AT LOCATION 
SOLATE UNEXPECTED TRAPS AND 


THIS IS A nes OF 
0 GNED_T 
NTERRUPT VECTOR AREA OF 


INSTRUC 
DEST 0 DETECT 
INTERRUPTS TO THE 


Fae AND 


THE PRINCIPAL OF THIS ROUTINE IS: THE VECTOR ENTRANCE 
SS POINTS TO THE NEXT SEQUENTIAL 


WORD WHICH 
wie A HALT ( ), (THIS LOCATION IS ALSO THE STA- 
OR THAT VECTOR ‘att TS HAS NO EFFECT ON 
IT ALSO BEING THE NEXT INS ON). 


HALT OCCURS I pL At INTERRUPT 


OR AREA, 
a eae Le ear ae oe 


T 
NTERRUPT OR . (MEMORY AS ObectE FIED BY 
MN AINS Te’ PC or TH INSTRUCTION POLL OMENG THE IN- 
STRUCTION WHERE THE TRAP OCCURRED). 


PROGRAM AND/OR OPERATOR ACTION 
LOADING AND STARTING AT 200 WITH ALL SWITCHES 
DOWN TESTING 


ERROR PRINTOUT 
ARE IN A FOUR WORD FORMAT, THE 1ST IS PC+2 OF THE 
Pe ree red ee ERROR I 


REFLECt THe THE iia ANSWER. 


ERROR RECOVERY 
RESTART AT 200 
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8.1 
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RESTRICTIONS 

STARTING RESTRICTION 
NONE 

OPERATIONAL RESTRICTION 


NONE 
MISCELLANEOUS 

THIS PROGRAM SHOULD BE RUN IN CONJUNCTION 
WITH MAINDEC-11-DZ2KEC-A (ERE RANDOM EXERCIZER). 
EXECUTION TIME 
ABOUT 40 SECONDS WITH ALL SWITCHES DOWN 
PROGRAM DESCRIPTION 


Is. frig it IS IGHT LINE TEST 
UNCTIONS STARTING fi WITH 3 i a OF OTe R REGISTERS. 


FE S AC YA TED 
Bat riot ier ier cuTeD SW11 bvecireb tod Tite 
BCE nid EHP 
BY CHECKING THE REGISTERS 
SP eI hott TH ee 


His SECT THE 
art REGI ECISTER. THIS abt i checks THE LOGICAL SHIFTS 
FROM OF 9°S, 1’S 1’S 


CIAL OF BOTH EFT RIGHT SHIFTING. 
Tie AP Ge PROGRAM TES SPEC TAL CASE OF ARITH- 
IC SHIFT, NORMALIZE, MULTIPLY, AND DIVIDE. 


FLOW CHART(S) 
NA 


; LRARELRLL ALLL LA ELLE LER ERAEREA ERE LE RAE REL E RA AL RARER LERE 
"HHMI HHGHHGHHHEHEGHHHHHIHIHIHHHHHIHEHHHIHIHH HHH HHH 


ijtane MAINDE 


C-11-D. 


:#COPYRIGHT (C) 1579,1 
*#DIGITAL EQUIPMENT abRP. 





a a ee + re ee 


a ee ee ee en = eee Oe 





polar cst 


Pritts et at : 


WIWIWIGIWIGIIGIWIG 
b= b= 0-2 0-2 bb b— — 
WONMULCUITM-O 
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a MASS. 01754 
}SPRORAN BY BOE BRAIN 


SMODIFIED BY at hs at te JULY 1976 TO SUPPORT 


SO ALLOWS DYNAM ING OF SOFTWARE SWITCH 


Pe 


ae RALEEs oa nepeaennenneeonnannannnannsenennnnsnenanannannenensss 





SWITCH SETTINGS 


00 INHIBIT SHIFT AND NORMALIZE TEST 
Oi INHIBIT MULTIPLY AND DIVIDE TEST 
10 0 - PASS COMPLETE 
i @ ERROR 
11 INHIBIT ITERATIONS 
le wie T TRACE TRAP 
13 NHIBIT Yypgeut 
14 L TE 
1S ON 


; LLAAEAALELELLLLELALALAL LLL LALLA SL LLLLLA ALLELE LE ELLE LLLL LER ALER EE 
HAHBHGHEHEHEHEHBEBHEH EEE EEE EHHHBEHE EEE HHH 
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YSSISSSSERR ERR RRR A ARRAS See R eet eaa SOL ASM Nees 
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PRINT 
340 
234 
SCOPEC 
HLT s EMT 
SWR 177570 
PSW= 177776 
OP= 240 
7 = TRAP 
SWREG: O 
2200 
Hoy BUFF , Xb ;SET UP STACK FOR SCOPE LOOP 
MOV #SHEAD, %S ;TYPE PROGRAM NAME 
JSR %7, TTOUT 
MOV #SMAIN, 4S ; TYPE MAINDEC NUMBER 
JSR 47, TTOUT 
JMP SUSWR 


DIV: 177300 
AC: 1773 

MQ: 177304 
MUL : 177306 
SC: 177310 
mi. ia 
LSH: ate 
ASH: 177316 


5 EE ET FOR MMOS GUITCH REGISTER’ SS 
2 6 JHHEHHG HG HHHHEHHHHIHH GHEE HHEHHEHHEHH HEHEHE HEHEHE 


SUSWR: MOV 386, -(6) ;SAVE VECTORS 
MOV ae4’-(6) 
MOV #64$. a84 ;SET UP FOR TIMEOUT 
CHP #-1,0SHR “REFERENCE HARDWARE SWITCH REGISTER 
BR 66S 
6 CMP (6)+, (6)+ ;ADJUST STK 
6S MOV #SWREG, SWR *POINT TO SOFTWARE SWITCH REG 
MOV (6)+, 084 RESTORE VECTORS 
MOV (6)¢ ate 
CMP ; IS SWREG USED 
BNE BEGIN 
ISR “7 CNTLU ALLOW G TO BE LOADED 
BEGIN: MOV #BEGIN, RETURN SET UP RESTART OF PROGRAM 
CLR JAC 
CLR ama 
CLR 43 
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5p RRR RRR EERE EERE EEE REE EEE EE EERE EE REELED EE EEE EERE EEE EES 
; REGISTER TEST FOR WRITABILI 


jj seeennennatnsneesonnndonsessensssensensnensennennnsseneanannens 
O44, SCOPE sCHECK SR AND SC FLOPS FOR O STATE 
1 oo0000 177652 MOV #0, aSC 
105777 177646 TSTB. 3s ast 
001401 BEQ 64S sIF NO.ERROR SKIP HLT 
104000 a HLT ‘CALL ERROR ROUTINE 
i SCOPE sCHECK SR AND SC FLOPS FOR 1 STATE 
0379 140477 177632 MOV #140477, aSC 
01774 177626 MOV asc, -(6) ‘ 
042716 037300 BIC #37300, (6) 
022726 140477 CMP 8140477, (6)+ 
001401 BEQ 65$ IF NO.ERROR SKIP HLT ; 
104000 ake HLT ‘CALL ERROR ROUTINE 4 
005077 177606 CLR asc ° 
104400 SCOPE ;CHECK MQ FLOPS FOR O STATE 
012777 000000 177572 MOV #0, aMQ 
177566 TST am . 
ate Q 665 ;IF NO.ERROR SKIP HLT 
104000 aia HLT “CALL ERROR ROUTINE 
122777 000036 177562 CMPB 9s «#36,9SR -CHECK STATUS 36 
001401 BEQ 67§ -. sIF NO.ERROR SKIP HLT 
104000 = HLT *CALL ERROR ROUTINE 
104400 SCOPE ;CHECK MQ FLOPS FOR 1 STATE 
012777 177777 177540 MOV #-1, 30 
022777 177777 177532 CMP #-1, MQ 
001401 BEQ 68S ;IF NO.ERROR SKIP HLT 
104000 Meee HLT *CALL ERROR ROUTINE 
22777 000042 177S2E CMPB 0 s«#42,, aSR -CHECK STATUS 42 
1401 BEQ 69S sIF NO.ERROR SKIP HLT 
104000 a HLT “CALL ERROR ROUTINE 
104400 SCOPE ;CHECK AC FLOPS FOR O STATE 
012777 000000 177502 MOV #0, JAC 
177476 TST ant 
1401 Q 70$ ;IF NO.ERROR SKIP HLT 
104000 a HLT “CALL ERROR ROUTINE 
po0020 177474 CMPB  - #20, 9SR -CHECK STATUS 20 
1401 BEQ 71$ sIF NO.ERROR SKIP HL 
104000 HLT ‘CALL ERROR ROUTINE 


71S: 























434 000ss4 104400 99 . SCOPE +3 ;CHECK AC FLOPS FOR 1 STATE 
ase Bpsees Bbs555 1777 1eodas CMP Hes 
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437 000572 001401 BEQ 723 IF NO.ERROR SKIP HLT 
4 ae 104000 723 HLT ;CALL ERROR ROUTINE 
122777 o00042 177440 CMPB = s«w#42,, JSR - CHECK STATUS 42 
441 000604 001401 BEQ 73 sIF NO.ERROR SKIP 
He 000608 04000 HLT ‘CALL ERROR ROUTINE 
a3 10 73S: 
0006 1 Sc -CHECK AC AND MQ WITH ALL NUMBERS 
we 0006 1 ead 016520 CL cp . 
447 000616 005267 016514 CPl1: INC CP 
000622 0014 BEQ OUTPC oe WHEN CP=0 
000624 O16 016506 177404 MOV CP, ama 
777 O16500 177376 CMP CP’ aMQ 
451 eee 001401 BEQ 64$ IF NO-ERRO cat As HLT 
452 000642 104000 HLT ‘CALL ERROR ROUTINE 
453 000644 ue. 
454 O00644 016777 O1E466 177362 MOV CP, JAC sLOAD AC 
Bp 300652 777 O16460 177354 CMP TEST AC 
DO0GEL 1756 BEQ CPi 
457 000662 104000 HLT sHALT IF AC.NE.CP 
438 pope 4 o1e767 OO4O00 016370 OUTPC: MOV #4000, SCOPEF sO TTERAT ONS 
i SCOPE : TES SIGN EXTENTION 
460 000674 012777 177777 177334 MOV #-1,aMQ ;LOAD MQ WITH -1 
461 022777 177777 177324 CMP #-1/ dAC TEST FOR SIGN EXTENTION 
neat 001401 BEQ 64S IF NO. ERROR SKIP HLT 
463 006712 104000 HLT “CALL ERROR ROUTINE 
464 000714 64S: 
ue 000714 005077 177316 CLR ama s CHECK FOR ZERO SIGN EXTENTION 
467 000720 005777 177310 TSI aac ws FOR ZERO AC 
ues ponvee fodcaD fre iChat ERS ROUTINE 
170 000730 65S: 
472 177777 17° MOVB  &-1,aMQ sTEST OF BYTE SIGN EXTENTION 
| 473 aie 177777 157399 CMP #-1/ aM * CHECK FOR SIGN EXTENTION IN MQ 
474 000744 O0140 BEQ 66S IF NO.ERROR SKIP HLT 
| 475 O0074%5 1 HLT ‘faut ERROR ROUTING 
476 000750 6S: 
| 477 000750 022777 177777 177256 CMP ;CHECK FOR SIGN EXTENTION IN AC 
| 
| 
| 
| 
; 


; 
. 
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478 000756 001401 
479 000760 104000 
m1 000762 

482 000762 105077 
483 000766 005777 
484 000772 901401 
48S 000774 104000 
486 000776 

487 000776 005777 
488 001002 ome, 
489 001004 1 

mF 001006 

492 001006 012777 
493 001014 022777 
494 091022 001401 
495 001024 104000 
496 001026 

497 0010e6 112777 
498 001034 022777 
499 ste 001401 
500 1044 104000 
S01 001046 

S02 O0104% 022777 
001054 001401 
S04 001056 i04000 
oP 001060 

4 mittee 012777 
509 Bobs BOi401 
510 001076 104000 
ett 001100 

$13 001100 005077 
514 001104 005777 
515 petig 001401 
516 OOlile 104000 
at 001114 


Sel 
See 
Se3 001114 004767 
Se4 001120 032777 
SeS O011e6 001402 
ace 001130 000167 


MACY11 
177250 
177244 


177232 


109000 
177777 


000200 
177777 


177600 


000077 
000077 


177136 
177136 


016230 
000001 


011742 
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BEQ 675 sIF NO.ERROR SKIP HLT 
HLT CALL ERROR ROUTINE 
67$: 
CLRS ag sCHECK FOR BYTE ZERO SIGN EXTENTION 
TST aMQ “CHECK FOR ZERO MQ 
BEQ «ss BS SIF NO.ERROR SKIP HLT 
res HLT *CALL ERROR INE 
TST aac “CHECK FOR ZERO AC 
BEQ 69S ; I NO.ERROR SKIP HLT 
HLT -CALL ERROR ROUTINE 
69S: 
177222 MOV #100000, aNG ;LOAD MQ WITH LARGEST NUMBER 
177ele CMP 8-1, aAC *OID IT SIGN EXTEND 
BEQ :IF NO.ERROR SKIP HLT 
oe HLT :CALL ERROR ROUTINE - 
177202 MOVB 8200, MQ ;LOAD MQ WITH LARGEST BYTE 
177172 CMP #-1, dAC *DID IT SIGN EXTE 
BEQ 71$ sIF NO.ERROR SKIP HLT 
a HLT ‘CALL ERROR ROUTINE 
177162 CMP #177600, 3M@ -DID IT SIGN EXTEND 
BEQ 725 sIF NO.ERROR SKIP HLT 
T ‘CALL ERROR ROUTINE 
7e3: 
177154 MOV #77, aSC sLOAD SC WITH - 
177152 CMP #77, JNOR “CHECK FOR SIGN EXTENTION 
BEQ 7 ;IF NO.ERROR SKIP HLT 
HLT “CALL ERROR ROUTINE 
733: 
CLR asc sCLEAR SC 
TST NOR *CHECK NOR 
BEQ 74§ IF NO.ERROR SKIP HLT 
HLT “CALL ERROR ROUTINE 
74S: 
: 5 LHELLLLALERLLELLLLLLLLLLELELEA LEAL LA ALAEA EAE LE LE LE LA LALA LERAERE 
: aT THIS POINT, ALL THE REGISTERS CAN HANDLE DATA OF 
: 5 RELRARLALELELLLALLALELE LLL ALE LLLALLALERLLLALALL LALLA LLL ARSE LELE 
JSR %7, CKSWR ;CHECK FOR CONT-G 
176712 BIT #1; aSWR 
BEQ MOOL 


-DIV 





—_—_—<—<—<—<—<—<—<—§K<€<§KX—X—XXKEKkK<K—X—KwKwX§KE<ReWwOWOO3O303sEROO_O 


2 
& 


5 


SERRE Soe mene 


SS888S888888888 
ee ee ete eee 


4 


SLRHESA SOUTER Se : 


S88888888888sSsssss 


OR ZS 


b-2 b= 6 & = 8 bh» > Bb -2 Bb pe 


2INSTE? 


rr ru 
be 
fT 


Ts 
o£ 


RERR SERS SSO 


104400 
905077 
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jj RRRAREAAARERREE RELL ALLL LARA LAL ELA LARALAAALLL ALAA LA AERELEL ALLELE 


: LOGICAL SHIFT TEST SECTION 
: TEST MQ SHIFT OF O'S L 
OO erp eargtagaacanvectpon sum pee agate spac eh Selene ptebin Haak tay 
SCOPE 
CLR 
CLR 
MOV #-1,%0 
LOOP: INC %0 
CLR asc ;CLEAR SR AND SC 
MOV %0, JLSH ‘SHIFT RO TIMES LEFT 
TST amd “TEST MQ FOR 0’ 
BEQ 64S IF NO.ERROR SKIP HLT 
ah HLT : ERROR INE 
CMPB =: #36, JSR “CHECK STATUS REGISTER 
BEQ BES IF No. ERROR Sip Me 
sie HLT ‘CALL ERROR ROUTINE 
CMP #16.,%0 sLAST ONE 
BNE LOOP 


5p RRR RR EEE EERE AREER EERE EA EEE EEE A EERE EEE EEE 
; TEST AC SHIFT OF 0’ 


Tiina 


MOV #1,%0 
LOOP1: DEC “0 

CLR asc 

MOV 40, 3LSH 

TST aac 

BEG 64S 

HLT 
4d: 


CMPB #36, dSR 
65$ 


CMP #-16.,%0 
BNE LOOP1 





HE 
OR 


oR 


STATUS REGISTER 
ro 


;LAST ONE 
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270 $3 Ut ante ah. 
é 001 ji eeeeuenteneeesesenatensesnnsneeensnnenenennnennenscsnnensnents 
1264 "SCOPE 
Bias Hae 77777 176742 HOV #-1, 90 sSET MOs=1 
ey 176744 a POL TSE SHIFT BY O 
00 1304 7782 176726 177777 CMP ao, 8-1 =C UNSHIFTED MQ TO -1 
t Bprsta 10% ai Fg 
es ‘ 7 
ess Bit pooozo 17e720 ° 8’ =n azo, ar CHECK STATUS 
001 Rae BEG 65s’ IF No. EASOR ip HLT 
58S 001326 104000 fe HLT CALL ERROR ROUTINE 
ee oat i "SCOPE 
1 1 177777 176676 8-1,aM0 RESET MQ 
283 Bot A 1 176676 ah #1 aLSH SHIFT 177777 TIMES RIGHT 
$1 O01 f, 077777 176656 CMP 877777, ama CHECK MQ 
ee Dies 140 BEG 66S sIF NO. ERROR SKIP HLT 
a0 i rae HL CALL ROUTING 
cs a ) perry onoces 17ees2 GB 59,0 F NO.ERROR SKIP HLT 
4. t. a Daa thin 
+ $ 
599 001 SCOPE 
600 : 177772 176630 HOV #-1, 00 RESET MQ 
1412 O1 176630 MOV «#177776, @LSH :SHIFT 177776 TIMES RIGHT 
| tise 86 sbomniy gr en IF NO.ERROR SKIP HL 
} ; e 
ome D014 TOHGnD oo HLT “CALL ERROR ROUTINE 
0014 000023 176604 * CMPB=Ss«823,, 9S CHECK STA 
| 608 oat ae BEG 695 IF NO.ERROR SGP LT 
| §09 O01 104000 HLT ‘;CALL ERROR ROUTINE 
| 610 OO14HH 69S: 
ble 1444 SCOPE 
| Bla Beiigs trggey 17esbe fe |g aoe 
/ 615 O01460 01 1 176562 MOV #177775, aLSH SHIFT 177775 TIMES RIGHT 
| 616 1466 017777 176542 CMP 817777, ame iCHECK MQ 
| big 1476 308 AY 3], NO ERnOR Set ot 
19 1500 70S: : 
1 122777 176536 CMPB -#23, SR “CHECK STATUS 
1205 OO14O Beg 71S iF NO. ERR SKIP HLT 
: : l 715 HL ‘CALL ERROR ROUTINE 
1512 104400 "SCOPE 
| 62S 001514 012777 177777 176514 MOV #-1, M0 
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: 
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ba? 
eas 
at 
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: 
ee 
: 
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Bs 
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1 


007777 


000023 


é7(732) 


176514 
17ea74 
176470 
176446 
176446 


176424 


176420 
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CLR 


MOV 81 SH 
CMP 47977. ahr 
BEQ 7e$ 
HLT 
723: 
CMPB 823, aSR 
Ge@ 733° 
738: 
SCOPE 
MOV 8-1,a9"0 
CLR aAc 
we #177773, aLSH 
CMP 83777 , aM@ 
BEQ 74S 
HLT 
74S: 
CMPB 823, 0SR 
BEO 75$ 
HLT 
758: 
MOV 8-1, a0 
a 
Ce a7) Sha 
76$ 
76$: 
CMPB 823, aSR 
BEQ 77$ 
778: HLT 
. 
coe #-1,a"0 
$177771,aLSH 
CMP 8777, ano 
BEQ 78$ 
HLT 
78S: 
CMPB #23, aSR 





; SHIFT a OP RIGHT 


sIF NO.ERROR SKIP HLT 
‘CALL ERROR ROUTINE 


CHECK STATUS 
sIF NO. ERROR SKIP HLT 
:CALL ERROR ROUTINE 


sRESET MQ 

;SHIFT 177773 TIMES RIGHT 
SIF NO.ERROR SKIP Ont ~ 
:CALL ERROR ROUTINE 


CK STATUS 


Ron SxTP HLT 


;RESET MQ 
; SHIFT i7rrTR Ae RIGHT 


iT NO. sub it HLT 
ALL ERROR ROUT 
“CHECK STATUS 


36, NOLERROR SKF HT 


;RESET MQ 
;SHIFT 177771 TIMES RIGHT 


ele 


IF NO. ERROR. SKIP HLT 
:CALL ERROR INE 


;CHECK STATUS 









A A Sa 
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672 001740 001401 BE 795 TE NO.ERROR SKIP HLT 
é 104000 A LeRROR ROUTINE 
Poe 78: cope 
177777 176262 MOV 8-1, 9N0 RESET MQ 
176254 CLR Sad 
ire 176262 MOV #177770, aLSH _ SHIFT 177770 TIMES RIGHT 
Me 176242 CMP $377, ong “CHECK MQ 


IF NO.ERROR SKIP HL 
:CALL ERROR ROUTINE 








4a BEQ 
ce 104000 «Cy. nn HLT 
22777 000023 176236 “ OMPB- Ss 823, SRR CK STATUS 
bey I SEQ 81$ :IF NO. ehROn SK F HLT 
1 HLT CALL ERROR INE 
686 81S: 
Sec} i SCOPE 
83 177277 176214 HOV #-1,9M0 ;RESET MQ 
631 L77ee 176214 MOV #177767, aLSH ;SHIFT 177767 TIMES RIGHT 
5 000177 176174 CMP 8177, a0 “CHECK MQ 
693 C 140 BEQ 825 IF NO.ERROR EERROR SKIP HLT 
oe fee | _~. —_— 
6 176170 " s« CMPB)=Ss«823, SR -CHECK STATUS 
6 ate BEQ 83$ sIF NO.ERROR SKIP HLT 
£98 104000 HLT “CALL ERROR ROUTINE 
eas 83S: 
70 1 SCOPE 
70s 1 177777 176146 HOV #-1,an RESET MQ 
704 1 176146 MOV #177766, aLSH _ sSHIFT 177766 TIMES RIGHT 
1 000077 176126 CMP 877, MQ CK MQ 
1401 BE 84 ip N NO. ERROR emnon si Ht HLT 
112 104000 ~ HL > CALL 
og 1 000023 176122 " CMPB- Ss 823, 9S * CHECK STATUS 
710 1 1401 - - BEG ;IF NO.ERROR SKIP HL 
71 is 1 HLT CALL ERROR ROUTINE. 
71 1 85S: 
71 
SCOPE 
) See 177777 176100 HOV #-1,aM0 RESET MQ 
01 17778 176100 MOV #177765, aLSH SHIFT 177765 TIMES RIGHT 
a 1 — Sep as +I NO. sib eek os 
, THORS aa HLT 0 ROUTING 
122777 000023 1760954 *  CMPB sCHECK STATUS 






SATITAISSLERTEREA STAM MAS SSSRESHASAONE OURS ETONOO EES | 
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ony 
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— 
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87S: 


91S: 


BEQ 
HL 


87$ 





;IF NO.ERROR SKIP HLT 
;CALL ERROR ROUTINE 
;RESET MQ 
; SHIFT fe AP TIMES RIGHT 


;1F NO.ERROR sxrb” HLT 
CALL ERROR ROUTINE 


- CHECK STATUS 
IF NO.ERROR SK 
CALL ERROR ERROR ROUTINES iN 


;RESET MQ 
;SHIFT 177763 TIMES RIGHT 
*CHECK MQ 
s IF NO.ERROR SKIP H HLT 
‘CALL ERROR ROUTINE 


ide ? efor Sef sci te 


;RESET MQ 
; SHIFT td AP TIMES RIGHT 


;IF NO.ERROR curb’ HLT 
“CALL ERROR ROUTINE 


CHECK STATUS 
IF NO.ERROR SKIP HLT 
: ERROR ROUTINE 


;RESET MQ 
; SHIFT 177k Res RIGHT 


i, No.mnon. scab iT 
HIE NO,ERROR SxTP HT 


;CALL ERROR ROUTINE 








; 
@ 
2 
we 


FT BY 0 


TIMES LEFT 


TIMES LEFT 


=-1 


FO2 


TEST AC SHIFT OF 1’S LEFT 
5 SESE AEE JE SE SE EE ES SE ee EE 


A 


Sesegs Eas 


s RRKERERALKEREASSRLALELALLLAL SAA LAA LAAAAAA RELA SSLELAL SELES ESLELS 
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175560 


MACY11 27(732) 
00350 


P 
5 


000311 175412 





;SET AC=-1 
SHIFT 4 TIMES LEFT 


Bae 





Pll 


C-11-D2KEB-A 


O-UMTin.or woo 
8 md Hh Od Od 4 9 


ERE REEDS A EES OERES 


SUUREUSRSSESS 


NAT 





ee ee Se ee 





MAINDEC-11-DZKEB-A MACY11 27(732) 
OZKEBA.P11 
833 O026S4 022777 177760 175352 
834 O02e662 001401 
fe tee 
ose ae tes 000311 175350 
ie 
841 
842 
843 002700 104400 
Sys pate ee 177777 175324 
B45 1 15777 o0000S 175332 
a] 16 177740 | =175310 
24 001401 
Bus posvap foNOe 
000311 175306 
ee) Mere e777 
8S2 00e74O 104000 
Ay 002742 
8SS 002742 ion 
8S6 002744 Ol 177777 17este 
i ie > 
Bea BOSvER BESTT? 152546 
Bea poseeB Sodcod 
Bes 000311 175244 
io 
Bes bosces | bo1401 , 
864 003002 104000 
865 003004 
islet e] 
B67 
Bee Piste Ate 177777 175220 
870 003014 012777 OO00007 175226 
003022 at 177600 175204 
tas ANN 1401 
873 003032 104000 
874 003034 
875 003034 122777 000311 175202 
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7e$: 


738: 


74S: 


758: 


78$: 





#177760, dAC 
728 


#311,a9SR — 
73$ 


#-1, dAC 


ad aac 
ie 


#311,d5R 


AC 
IF NO. cheon” SKIP HLT 
CALL ERROR ROUTINE 


« CHECK STATUS 
IF NO.ERROR SKIP HLT 
CALL ERROR ROUTINE 
set AC=- ! 
i SHI Ft 5. IMES LEFT 
F NO.ERROR SKIP HLT 


;SET_AC=-1 
sary & TIMES LEFT 


sJ6, NOLERROR SKIF HLT 


tht NO. ERROR Sx sir it 


;SET AC=-1 

s SHIFT zo TIMES LEFT 
NO.ERROR SKIP HLT 

et ERROR ROUTINE 


;CHECK STATUS 
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MAINDEC-11-D2KEB-A 


-4 


: 


ac jewec fae 
3 & x%3 x%s 
es tas : Se 
2), wea 
uz fo 


aAc 
ai 
,9SR 


81$ 


SCOPE 

MOV 

MOV 

CMP 

BEQ 

HLT 

CMPB ss #311 
BEQ 


000311 175140 


@ AS & 


—~ ws 


81S: 


ce 


=~ 


ae 


11 TIMES LEFT 


Ese Me 


SURLARSS PRR 


bh ed dd OG HG oe Ge ee 


Baeseee 
SSSSBSRSRSERE BER REE OE ecm mom me 


i} | 
.-\=. = 
5S 


ir 

4 

Y. 

55 
Sy Sty 
Sonos x¥g 
Woes ES 

2, 2, 
Hd 


me 


se 


RASR mate 
Beene siete 


tj 
ty & 
Nagas 
S-x%s x 
Hoses 3 

: 

= 

Fr eS 
gig 8 
amk@ ss 
izes 2 


SCOPE 
MOV 
MOV 
CMP 
BEQ 
HLT 
CMPB 


ee 


nk nd nd nd wt 
POSEN OMAXao § 





— 
ie 
tal 
-! 
i" 
-_ 
— 
> 
-_ 


1 


;SHIFT 15 TIMES LEFT 


;SET AC=-1 
ar wo cA 8 


102 
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e7(732) 


11 174730 


77777 


MACY11 








TIMES LEFT 


He 


mints 


So 


me BY Ei Bae 
oes 





AC=-1 


2 
5 


1 
Pl 


A 


ee 


& 
SY 
8 


Seo BeR RE BRS aa : 


2 
= 


: 


SrRESRoS eee L OR 


= ee 





8 
S 


: 


aN EY be 


— 





¥ 


7 (732) 


174S40 


leS2Se 


174516 


174474 
174500 


174450 


174372 
174376 


174346 


174332 





5 FEA AAR EEE 6 9 EE SE J EE SEE SE SEE ESE EE 
; TEST MQ SHIFT RIGHT OF ALTERNATE 1’S AND 0’ 
5 HERR AE SESE ESE ESE SESE SEER EE AEE RARE HE AE EE HEE EEE EERE ERE EEE EE 


O3-NOV-76 15:27 PAGE 23 
MQ1OR: 
are 
CLR she - 
CLR aJLSH 
CMP aMQ, #125252 
BE BS 
HL 
64S: 
CMPB #20, aSR 
BES S$ 
HL 
65S: 
MOV #125252, MQ 
MOV #177777, aLSH 
TSTB aSR 
BEQ 665 
HLT 
66S: 
CMP #152525, aM@ 
BEQ 67$ 
HLT 
67$: 
SCOPE 
MOV #125252, MQ 
MOV #177776, dLSH 
CMPB #1,aSR 
BEQ 6a 
HLT 
68S: 
CMP #165252, JM 
BEQ 9S 
HLT 
695: 
SCOPE 
#125252, INQ 
#177775, aLSH 
TSTB 
Q 
HLT 
70S: . 
CMP #172525, aM0 
BEQ 71S 
HLT 
715: 
SCOPE 
MOV #125252, aMQ 








T MQ=12S5252 

tarEAR 
icone na BY 0 
Sone 





;SET MQ=125252 
:SHIFT 177777 TIMES 
“CHECK STATUS - NO CARRY 
IF NO. SKIP HL 
*CALL ERROR ROUTINE 
COMPARE MQ 
F NO.ERROR SKIP HLT 





; ae", 
;SHIFT 177775 T 


IMES 
sIF NO.ERROR SKIP HLT 
;CALL ERROR ROUTINE 


COMPARE MQ 
IF NO.ERROR SKIP HLT 
CALL ERROR ROUTINE 





;SET MQ=1eS2S2 








ees ee ee ee 


nahh i wanes 


1 012777 177774 

en eee ee 

ea to 

1 

ie 90140 : 

Bs 

1 1 1 

BS fee Slee 

a 003754 Serant 174264 

i fee oo 

1 

10S0 022777 176525 

i Bee ii 

ie 

1055 003776 104400 

1 1 1 

i Bee Bier | 

1058 Oovoes 12e777 000001 

1059 001401 

1060 104000 

1061 O04026 

is Sees eg 

1064 1 

i on 

1067 OO4O40 104400 

1068 OO4O4e 012777 1eSeSe 

ie beast ieee iia 
‘ Se 

1B) SS A 

ie ee 

1 022777 177525 
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1p4ae8 


174304 
174270 
174274 


174244 


174142 


723: 


738: 


74S: 


75S: 





783: 
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KO02 





#177774, aLSH 
#1,aSR 
72$ 


#175252, aM 
738 


,oMQ 
73, 0LSH 
74$ 


#176525, aM@ 
75$ 








iN 


;SET at 
sSHIFT 177773 TIMES 
iCHECK ie NO CARRY 


Deu eRRR RGU Ine 


“COMPARE MQ 
IF NO. ERROR Sei SKIP HLT 
CALL ERROR ROUTINE 


te leY 129772. TINES 
CHECK STATUS - WITH CARRY 
hee Se 





NAINDEC-11-DZ2KEB-A 
OZKEBA. P11 


wi 
aes 


oo 00 104400 
ise BRITS 845555 
1081 004116 122777 
1082 004124 001401 
1 nae: 104000 
1084 1 
004130 022777 
004136 001401 
ibe OO4140 1 
be 004142 
004142 104400 
O31 Soules 15977 
igee ant 105 
ipse Bowie foagon 
10% 004170 
tba Boutse Sarda, 
1039 004200 104000 
1100 oo4202 
Lids Beam Olez7e 
tide Bousss 935595 
tip? po4e3B D40eH 
tide Bosse 
He fee Si 
tii? Boasue fo4o00 
1114 04244 104400 
1115 004846 012777 
1116 004254 012777 
1117 O04262 105777 
| 1118 004266 001401 
| 1153 Bbdsy2 totooe 
| 1121 004272 022777 


MACY11 
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1776S2 


173756 


177765 


é7(732) 


{oal83 


174120 


174100 


174064 
174070 


174040 


= 
eet 
wo 


74 
74 


173776 


173736 
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BE 795 
HL 

738: 
BO siccccs 
Mov 819999573 eH 
CMPBs«aw# 1, SR 
BEQ 80$ 
HLT 

80S: 
CMP #177652, MQ 
BEQ 81S 
HLT 

81S: 
SCOPE 
MOV #125252, aM0 
MOV #177767, aLSH 
TSTB = SR 
BEQ 825 
HLT 

ces: cmp 8177725. aN0 
Bro 54s . 
HLT 

83S: 
SCOPE 
MOV #125252, INO 
MOV #177766, aLSH 
CMPB s«#1, SRR 
BEQ g4§ 
HLT 

84S: 
CMP #177752, aMO 
BEQ 85S 
HLT 

gs$: 
SCOPE 
MOV #125252, MQ 
MOV #177765, aLSH 
TSTB = SRR 
BEQ 86S 
HLT 

665: 
CMP #177765, MQ 











FO ERROR Bate HLT 


+ 155958 ines 
CHECK K STATUS ~ WITH CARRY 


IF NO.ERROR 
‘CALL ERROR ROUTINE 


COMPARE MQ 
F NO. EAROR SKIP T 


I HL 
sCALL ERROR ROUTINE 


;SET MQ= 


: ese5e 
iSH FT 1 17776 
Tatus - 
IF NO. ERROR KT IP HL 
‘CALL ERROR ROUTINE. 


F NO. EAROR SRP ALT 


31 
;CALL ERROR ROUTINE 


TIMES 
NO CARRY 


oe a as TTT CARRY 


:SET 
‘SHIFT 177765 TIMES 
CHECK STATUS ~ NO CARRY 

IF NO. ERROR SKIP 

CALL ERROR ROUTINES 


;COMPARE MQ 





MAINDEC-11-D2KEB-A 
DZKEBA. 


tore 
gag = 
sas 


ek ee ee ee ee oe 


M=SBBVKRLSRHE SBS VERY 


<x 
Ww 


Oe be ee ee an he be Be Pe ba be Be Pe hat be Bs Pe Pe Pe se Pe me Pan Pe ne ae a me ne mes ae Pe ne nee me ne Pe Pe be Pe Pun P—s Sue fas Pe pe 
SO DUR Solo Ste Nerul e toto unde Oe 


0-2 8b b= b= b= Ps &— BB HB 2 hs Ps BP > f= Hh = bh fh b= hs he = bh hs Pb he bs hh oh pe 


N 
— 


&7(732) 


18786 
173714 


173674 


173660 
173664 


173634 


173556 
173562 





87$: 


91S: 
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87$ 

1179964; aL 
sag 
errs, oe 


#i2SeS2, aM 
#177763, JL SH 


sta 





;1F NO.ERROR SKIP HLT 
CALL ERROR ROUTINE 


SIF "o. iCHECK SP Ht re: WITH CARRY 
; CALL 


COMPARE M 
IF NO. ERROR SKIP ALT 
‘CALL ERROR ROUTINE 


COMPARE MQ 
IF NO. ERROR SKIP HLT 
CALL ERROR ROUTINE 


iSuEr | Ura WITH CARRY 
IF NO. ERROR SKIP 
CALL ERROR ROUTINE» 





Z 
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z 


a 8 


f= be eb RO 


P= bb ©. dd DEDEDE EE CED ED Od) md wd OO bo 
SBSFRLOCLEBBIKRZGV=— BIS Nsadz 


SNR eGR 
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b= b= & = bP bo Pb 0 8 BP BO = bh = 2 eh 2 PS r= & mF — HH He HH om 
tururururururvrurury 
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of 
— 


5p AHR REE EEE EEE EERE EEE EERE LEAR EE EEE EERE REEL EEE EEE 
; TEST AC SHIFT LEFT OF ALTERNATE 1’S AND 0’S 
5 KELEREREEE REE REE EEE EEL LA AE EE EEE LEELA REA AR EERE EEE EEE E EEL ALE EE 


AtLOL 


g 


l 
Sue 
Bve19 CLR aMQ 
004516 0912777 1 173510 MOV #125252, JAC sSET c= 12525 
povees 1 CLR aL : INITALI IFT BY 0 
27? 17 12S252 CMP JAC, #125252 ‘COMPARE AC 
004536 001401 BEQ 64S sIF NO.ERROR SKIP HLT 
boveNg 104000 oa HLT :CALL ERROR ROUTINE 
o04s4e 122777 000310 173474 cHPE ¥310,a5R vo iCHECK STATUS 
DO4SSO ; : 
nO4s52 rant HLT ‘fh ERROR ROUTINE 
oo4sS4 65S: 
CO4SS4 104400 SCOPE 
Oovo5b 12777 125252 173450 MOV #125252, JAC ;SET AC=125252 
4 012777 000001 173456 MOV #1, 0LSH :SHIFT 1 TIMES 
kee??? 000211 173444 CMPB ve11,a5R : CHECK STATUS - WITH CARRY 
140 BEQ IF NO.E SKIP HL 
1o4000 HLT :CALL ERROR ROUTINE 
004604 66S: 
004604 oS2524 173422 CMP #52524, JAC -COMPARE AC 
004612 O01401 BEQ 67§ sIF NO.ERROR SKIP HLT 
OO4614 1 HLT “CALL ERROR ROUTINE 
004616 67S: 
004616 1 SCOPE 
004620 O01 125252 173406 MOV #125252, JAC ;SET AC=125252 
004626 012777 O00002 173414 MOV #2, aLSH :SHIFT 2 TIMES 
004634 122777 O00110 173402 CMPBEs«#1 10, aSR “CHECK STATUS - NO CARRY 
004642 001401 BEQ 68S IF NO.ERROR SKIP HLT 
boweH 104000 om HT “CALL ERROR ROUTINE 
OO4646 022777 125250 173360 CMP #125250, JAC sCOMPARE AC 
004654 001401 BEQ 695 sIF NO.ERROR SKIP HLT 
004656 104000 HLT *CALL ERROR ROUTINE 
004660 69S: 
pouees nove 
1 125252 173344 MOV #125252, JAC SET AC=125252 
004670 012777 000003 173352 MOV #3, JLSH :SHIFT 3 TIMES 
004676 12077? 000211 173340 cpa 3s wl SR “CHECK STATUS - WITH CARRY 
004704 001401 BEQ 70$ sIF NO.ERROR SKIP HLT 
0470 104000 “a HLT “CALL ERROR ROUTINE 
804710 022777 OS2520 173316 #52520, JAC COMPARE AC 
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Ra Ree Kee Kee Koen Ket ae Coe Ke Roe Rot hee ot he Doo oe poe ee a ee ee ere lee tele ele le le ie lel hk) 


MAINDEC-11-DZKEB-A 


ee a mg ete ee 





*. oe un ‘ 6) 00s 1 
53 Sts BAS Sate Fos a Ss Be bt bi : 
ba 5 


RROR 
ROR 
SIF 10, ca 
CALL ERROR ROU 
F NO. ERROR 
ERRCR 
;SET 
: SH 
ies 
ERROR 
ERROR 
:SET 
ee 
Teaco 
a 
-C 
eho 


;1F NO. 
; CALL 
F NO 


CO3 


wavs 828 ee 
gi Beales egy Gesfgs ego Ssefes ess  feaes ¢ 
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77 
25252, 
7, aLSH 
el1,asr 
8S2400, 
33 
25252, 2AC 
0, 3LSH 
6, 
#1 ,aAc 
aig . 
1. aLSH 
11, 05R 
oH 
ee 
#124000, dAC 


03-NOV-76 


77$ 
78$ 
798: 
80$ 
81S 


(732) 
1 
1 
i 


é? 
l 
1 
1 


ae OF : é 
eee 
ze aia Ba 


a ee eees wears: 
ae 


Ua EQQhRRe BERS RRECELEERARRBRERRRERRREUERERSARRGHEDES 


PURUTUUTUTUAUTuiururururururunucununueututl ce ath Reme Kom Kom Rom Rom } 


MACYL1 
0Se4 
Boots 
000110 
125000 





11-D2KEB-A 


C- 
Pll 


MAI 
HLT 
NE 
Fines 
TATUS ~ WITH CARRY 
P HL 
INE 
ac 
HLT 
NE 
25252 
TIMES 
TUS = NO CARRY 
P HLT 
INE 
AC 
HLT 
NE 
1 TIMES 
TUS = WITH CARRY 
. INE 
ac 
INE 
25252 
TIMES 
ATUS - NO CARRY 
HLT 
NE 





mn ne se a ew ee ee ee ee 


DO3 
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C-11-D2KEB-A 


Pll 


MAT 


g 
Yo 
x 
— 
-_ 
=z 
‘ 


ety v2 
2-xhg e 
oo 
mS SG 
ae 
<= 
a} 4 
ae 
es < 
Seskes eg 
3 


AC 
HLT 
NE 


re nae a NO wea 
ete Sixig 86S Sexe pe 


IF NO.ERROR 

CALL ERROR 
. ERROR 
ERROR 


© 2 2, 2, 


- 
on oe =e 
% 
Ld 
- 
od — 


- SS ot 2 cS hee mig S 


ae 


“MUM T in.ofr ac 
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1363 ; EREHAAAAASSE SES ELELAALELELAALLALEL ALES AL ELAAASSALLA LALA LERS RSLS 
1364 TEST OF MQ SHIFT INTO 

i { CISTRRRRSRERARRRERECERR RRR SR EERE EN NENEENEENe NENT NEUEN ENN NaNO 
54 

l SCOPE ; TEST OF U ICAL SHIFT 

HS Hees BBR te 

1 1 OC MOV 8 +L 

1 012777 000020 MOV #16. aLSH ; LORD SHIFT COUNT (LSH) WITH 16. 
1 000000 ch 80, JAC AC WITH O 

1 1401 Q 64$ IF NO. SKIP it 

1 1 HLT “CALL ERROR ROUTINE 

ise ronan i7es2 8 g #0, 3N0 MQ WITH O 

1307 ooi0t BEQ 6s¢ sIF NO.ERROR SKIP HLT 

te 1 “on HLT *CALL ERROR ROUTINE 

I 000036 172456 x 836, 2SR COMPARE SR WITH 36 

1381 ates BEQ 66S ;IF NO.ERROR SKIP HLT 

1 104000 HLT ‘CALL ERROR ROUTI 

: 6ES: 

1385 

139 py4o0 

i bt 77777 «1724 Boy 8-1,9¢0 Ie Hf Ma ae staffs 
es pierre haan 1 Suey MOV #0, 3AC LOR AC WITH O 
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CALL ERROR 
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ICORPARE AC 

ROUTINE 
{COMPARE MQ 
INE 
SCOMPARE SR 
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;TEST OF LOGICAL SHIFT 
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SCOPE sTEST OF ARITHMETIC SHIFT 
MOV 80, a¢0 “LOAD MQ WI ! 
NOY eel’ onSH LOAD SHIFT COU 4(PSH) WITH -16 
che a0, st , sR SH “PG itn 0 : 
‘a HL eat : Rout INE 
"CMP #0, aNQ :C MQ WITH O 
BEQ 6s$ s IF NO. ERROR SKiP HLT 
can HLT ‘CALL ERROR INE 
“ « CMPB =sis« 8386, SR COMPARE SR WITH 36 
BEQ 66S IF NO.ERROR SKIP HLT 
i HLT “CALL ERROR ROUTINE 











SCOPE TEST OF ae SHIFT 
MOV #0, 3M0 SLOAD MQ WITH 0 
Nov a he iLOAD iret (ASH) WITH -16 
CP aR an i 
BEQ 6 IF NO. SKIP HLT 
a HLT “CALL ERROR ROUTINE 
"CMP 8-1, aM -COMPARE MQ WITH -1 
BEQ sIF NO.ERROR SKIP HLT 
wi HLT :CALL ERROR ROUTI 
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BE IE NO 
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708: 
CMP #125252, ame 
BEQ 71§ 
HLT 

718: 
CMPB =s-« 8342, 2S 
BE 725 
HL 

723: 
Soy . #0, a0 
MOV #52525, JAC 
MOV #-16. , dASH 
CMP #0, aA 
BE 73$ 
HL 

738: 
CMP #52525, IMO 
BEQ 74§ 
HLT 

74S: 
CMPB 0s« #22, SR 
BEQ 75§ 
HLT 

758: 
SCOPE 
MOV ‘#100000. 29C 
MOV 8-32. . JASH 
CMP #-1, 0AC 
BEQ 76§ 
HLT 

oe es! ote 
BEQ 535 
HLT 

773: 
CMPB ©: 8343, aSR 
BEQ 78S 
HLT 


-COMPARE MQ WITH 125252 
sIF NO.ERROR SKIP HiT 
“CALL ERROR ROUTINE 
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; TEST OF ARITHMETIC SHIFT 
;LOAD MQ of Uh 0 


LO aC HO 

; IFT COUNT (ASH) WITH 16. 
: AC WITH O 

;IF NO.E SKIP HLT 

;CALL ERROR INE 


; TEST OF 6 en a SHIFT 


OAD AC WITH. O 

et (all 

‘LOAD SHIFT COUNT (ASH) WITH 15. 
: AC WITH 77777 

;CALL INE 


: MQ WITH 100000 
; IF NO. SKIP HLT 


;TEST OF ARITHMETIC SHIFT 
sLOAD MO WITH =I 
:LOAD AC WITH O 
ZLOAD SHIFT COUNT (ASH) WITH 16. 
a AC WITH 77777 
s1F NO. SKIP HLT 
;CALL ERROR ROUTINE 





;COMPARE SR WITH 211 












) WITH 15S. 
(ASH) WITH 16. 


eet ¢ NT CASH) WITH 15S. 
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LERROR 
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raat 
ore 
ROUT 
T OF 
Oe MQ 
ac 
SH 
on 
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MAT 


; 
8 


ARBZBRLLRE 


ed ee od eg og Hy me 
CucucurucuCuturuT 


SARA 


; IF NO.ERROR SKIP HLT 


;CALL ERROR ROUTINE 





oooc00 166000 





ee 


tod we 4 at ae —t bo oe = tat 
alata *nlalalalalalafafalafafetatatatatstatatetatctaletetetetetetetoteretetetay 
O-uMTMNOR aw - 


CUCU UUR 





COUNT (ASH) WITH 16. 


THMETIC SHIFT 


000010 165774 
122777 000110 16571e 


RS iRiaatatcs 


OE Td a eh dd 


Lt | catemal 


a 
2 


payee: 


j 


aS 


pas pHs Bae pe 


See Peeeeeee 
Fin SERBNASEe 
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g 


: 
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8 
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ay 
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OOOOOO000O0000o0 
Ge hae fe es het Bs Pat Gb be be 


PER ERRBRS DOE 
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SSEABSAREA asa usa atacand iie eee 
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jy eaannsstgneseguenpeoenatencteeasuersnesteesnsrenenssenenenes 


AT THIS POINT, THE ARI C 
js taneeateesiaieesseelanetesneressetaseteasieesteesaneesaneesns 
396 39 9 3 9 9 EE AE EEE 


; TEST OF NORMALIZE 
» SLEFLFFALAALALAALALARLAA LL AA LALA LL LLAAAALALERERLAAAERAAAERAALES 


RORMAL 


SCOPE sTEST OF NORMALIZE 
MOV #0, aM0 “LOAD MQ WITH 
MOV #0; JAC : AC WITH 
CLR aNOR START NORMALI 
CMP #0, JAC C AC WITH O 
BEQ 64$ IF NO.ERROR aokIP HLT 
aa HLT : INE 
CMP #0, aM -C MQ WITH O 
BEQ 6s$ IF No. ERROR CRIP HLT 
a HLT > CALL ROUTI 
CMP #017037, aSC :C SC WITH 37 
: AND 
BEQ 66S sIF NO.ERROR SKIP HLT 
HLT * CALL 
665: 
SCOPE sTEST OF 1ZE 
#-1, 90 LOAD MQ WITH -1 
#-1'9AC “LOAD AC WITH -1 
CLR : START NORMAL 1ZE 
#140000, aAC AC WITH 140000 
Q $ IF NO.E SKIP HLT 
a HLT *CALL ERROR ROUTINE 
MP am . MQ WITH O 
fro O«ék SIF NO.ERROR SKIP ALY 
ia HLT “CALL ERROR ROUTINE 





#144036, @SC 
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Fa 
3 
Qo 

4 
tee 


A 
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it 


oo 4 be h-2 + bs be fF BF = Ba 


SR aS NNR & 
es Fe RRR 


o0000 O00 BOOOOOO0O00000 
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BE 693 sIF NO.ERROR SKIP HLT 
Ses: HL ‘CALL ERROR ROUTINE 
"SCOPE TEST OF 1ZE 
165530 MOV #0, aMQ ts 8 vai | 5 
165 Nov #-1, aAC AC WITH -1 
165526 CLR NO s STAR T NORMAL 17E 
1 165506 €MP #140000, JAC OMPARE AC WITH 140000 
BEQ 70$ IF NO.ERROR SKIP HLT 
se HLT ‘CALL ERROR INE 
000000 165476 “CMP #0, 0119 - COMPARE oto ITH 0 
BEQ 71$ IF NO.ERROR SKIP 
on HLT CALL ERROR IN 
144016 165470 "CMP 8144016, aSC sCOMPARE SC WITH 14. 
: AND SR= 31 
BE 728 sIF NO.ERROR SKIP HL 
HL *CALL ERROR ROUTINE 
723: 
SCOPE TEST OF NORMALIZE 
000001 1654S0 MOV #1, aM0 “LOAD MQ WITH I 
000000 165440 MOV #0; aAC ib AC WITH 
165446 CLR aNOR TART NORMAL I 
040000 165426 CMP #40000, JAC ‘COMPARE AC ITH 40000 
BEQ 73$ sIF NO.ERROR SKIP HL 
on HLT CALL ERROR ROUTINE” 
000000 165416 “CMP #0, a0 -COMPARE MQ WITH O 
BEQ 74g sIF NO.ERROR SKIP HLT 
ee HLT *CALL ERROR ROUTINE 
004036 165410 "CMP #004036 , aSC : sc. WITH 30. 
BEQ 75$ SKIP HL 
ve HLT ae ERROR ROUTINE 





165370 MOV #5, aMQ 
165360 MOV oat tad 


000005 

000000 

Sass ae 
165346 —t- CMP #50000, dAC 





b= pb ee 2p 


ESSE 


SOuRERaEEe Bs 


G 
O00 BOOOOOOOOO000O 200 2000 
Bae dae Hs be Re BP De he Be Dae b+ De nd be fap Rs 


SURORRUAATIOS San 


SE ESY & 


a3 


PER RR RR Cats piacere: 


a os a ee a 


ops 


Bed Se 


gs 


s 
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165336 


165330 


165310 
165390 


165266 
165256 


165250 


165230 
165220 
165206 


165176 


165170 
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76S: 


778: 


783: 


61S: 


B4S: 





768 


#0, 9MQ 

77$ 
#004034, aSC 
78S 


#1, 9M 
#100000, 3AC 
JNOR 


#100000, dAC 
798 


£1,010 


#140000, aSC 


81S 


#125252, aM@ 
#170000, JAC 
@NOR 


#100005, aAC 
8e$ 
#52520, dMQ 
83$ 


#140003, aSC 
84S 


;IF NO.ERROR 
;CALL ERROR 


KIP HLT 
ROUTINE 

COMPARE MQ WITH O 
sIF NO.ERROR SKIP HLT 
‘CALL ERROR ROUTINE 


3 COMPARE SC WITH 28. 
SR= 10 


NORMAL 
OMPARE AC WITH 100000 
IF NO. efgot SKIP HLT 
“CALL ERROR ROUTINE 


MQ WITH 1 
+E NO. .EfiOn Skt Scie iT 


“TEST OF 
TaD MQ WITH Hae 
Yaar none AC METH 170000 
ORPARE AC RC uk H 100005 
IF NO. _ERROR 
CALL ERROR ine 
-COMPARE MQ WITH S2S20 
sIF NO.ERROR SKIP HLT 
CALL ERROR INE 
;COMPARE SC WITH 3 
: AND 300 
;IF NO. 
sCALL 


WITH O 
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378 
379 
55 SE 9 EEE EE EE EA 
AT THIS POINT NORMALIZE WORKS 
2383 
2384 





wc hie Ont be ae Te ee 
, 


WETitiiiitittiiitttiiiiiiittiitiiititiittitiititttittittittttete: 


1 004767 O04 JSR %7, CKSWR sCHECK FOR *G 
Ot sobs pee init 164750 IT te JSWR : 
1402 Q ty 

013072 000167 003042 





J 
yates eeeaa ee dantannaeeanaeeesaereanaeeeanaeeanaeeeanetsy 
LY 
s KEELEELLELALLLL LE LLLHLE LEE ALAA LA LALLA ALERALE RELL LE RRLL AERA EE 


BelRReORCR Se ARIES 





013076 ite 
013076 104400 SCOPE TEST OF MULTIPLY 
013100 012777 oO00000 165130 MOV #0, aMO “LOAD MQ WITH O 
EINE 835555 Boooed Leeli2 ya eo Sopa ne WTR iC 
1 33 ates BEQ 64$ IF NO. ERROR SKIP HLT 
e410 13124 104000 ae HLT CALL ERROR ROUTING 
Sats pi stse 022777 000000 165102 "CMP #0, 9MQ COMPARE MQ WITH O 
13 13134 001401 BEQ 65$ IF NO. ERROR SKIP HLT 
18 131% 104000 tne HLT ‘CALL ERROR ROU NES 
2416 O13140 122777 000036 165076 "  CMPB = #36, JSR ;COMPARE SR WITH 36 
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WWWWW) 


FORORORS 
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ess ste es: 3 





001401 
104000 
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BEQ fas) 
HLT 

66$: 
SCOPE 
MOV #-1,aMQ 
MOV #1, aM," 
CMP #-1, 
BEQ 67$ 
HLT 

67$: 
CMP #-1,aMQ 
BEQ 68S 
HLT 

68S: 
CMPB #342, aSR 
BEQ $ 
HLT 

69S: 
SCOPE 
MOV #125252, aMQ 
MOV #2, 0MUL 
CMP #-1,dAC 
BEQ 7 
HLT 

70S: 
CMP #52524, JMQ 
BEQ 71$ 
HLT 

718: 


CMPB #340, JSR 





; IF NO.ERROR SKIP HLT 
;CALL ERROR ROUTINE 


TEST OF MULTIPLY 
;LOAD MQ WITH 
LOAD MUL WITH 1 AND MULTIPLY 
“COMPARE AC W 

sIF NO.ERROR SKIP ap 

“CALL ERROR ROUTINE 


COMPARE MQ WITH -1 
IF NO. ERROR SKIP HLT 
:CALL ERROR ROUTINE 


COMPARE SR am 342 


Tee: eEAROR.SKTP HLT 


T 
“COMPARE AC W 

IF NO.ERROR CRIP HLT 

CALL ERROR ROUTINE 
COMPARE MQ WITH S2S24 

IF NO. ERROR SKIP HLT 

“CALL ERROR ROUTINE 


;COMPARE SR WITH 340 
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Rpg Estudios 
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Gas bas bs ps bs Bt Ph 0 hm be he he he 
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164622 
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BE 723 
HL 

723: OPE 
V #52525, aMQ 
MOV a2, aut 
CMP 
BEQ a ied 
HLT 

733: 
CMP #125252, MO 
BEQ 74§ 
HLT 

74S: 
CMPB =: #20, aSR 
BEQ 75$° 
HLT 

753: 
SP zero 
MOV 
CMP Hjesese. ot aac 
BEQ 
HLT 

765: 
CMP #100000, aMQ 
7 

773: 
CMPB ©: #300, aSR 
BEQ 78S 
HLT 

783: 
SCOPE 
MOV #100000, aM0 
MOV #100000; JMUL 
CMP #40000, JAC 
BEQ 795 

79$ vai 
CMP #0, aMQ 
BEQ g0$ 
HLT 

80S: : 
CMPB =s-«-#10, SR 
BEQ 81$ 
HLT 

81S: 


;1F NO.ERROR SKIP HLT 
;CALL ERROR ROUTINE 


iLGRO fa 
iL 
LOAD MUL ru he MULTIPLY 


IF NO. eagonrere fr 


:CALL ERROR ROUTINE 
COMPARE MQ WITH 125252 
IF NO. ERROR SKIP HLT 
:CALL ERROR ROUTINE” 


COMPARE SR WITH 20 
IF NO. ERROR SKIP HLT 
CALL ERROR ROUTINE 


3 TEST OF MSLTIPLY 


COMPARE MQ ITH 100000 
iJ NO. ERROR SK eERROR. SKIP HLT 


OMPARE SR WITH 300 
IF NO. canoe SKIP HLT 
‘CALL ERROk ROUTINE 


-COMPARE SR WITH 10 
IF NO.ERROR SKIP HLT 
CALL ERROR ROUTINE 
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BOS 


socgnett ent tt Sennennenrooneseevtnoenerenneentet 


DIV 
LOPRSRRRRRRRSRERRSESENESUNNSNERRE NESE RET HeenEEEnEEEnaEEnNEENeEE™ 


eres 


1S: 


18: 


£3 ER ald aazerneyr aSEEaCE 


TST 


BERRY 


ef 
ow 








TEA OF a 


amo 
aDIV Bab piv w WITH O AND DIVIDE 
asR iL OF IFT ve FLOM BIT INTO PS 
1§ :SKIP HALT IF GOOD 
leet ON ERROR 

ane ;CHECK AC’S SIGN 
a ; SET APROPRIATE N AND V BITS 
‘ ;WRONG SIGN 
. CONT 
asr ;SET APROPRIATE N AND V BITS 
. CONT 

TEST OF DIVIDE 
ana ER THe Mo 
#52525, JAC LOAD AC WITH S2S25 
852525, aDIV : DIV WITH S2S2S AND DIVIDE 
ar : OW BIT INTO PS 
1§ *SKIP HALT IF GOOD 

: ON 
ane sCHECK AC’S SIGN 
asR ;SET APROPRIATE N AND V BITS 
CONT 

WRONG SIGN 
CONTI 
asp ;SET APROPRIATE N AND V BITS 
CONTI 

;TEST OF DIVI 
e-1, 980 LOAD MQ WITH -1 
8-1 "LOAD AC WITH -1 
#1, a01V : V WITH 1 AND DIVIDE 

aac AC WITH O (REMAINDER) 
64$ IF NO. SKIP HLT 
* CALL ROUTINE 
8-1, aM0 : MQ WITH -1 (QUOTIANT) 
65 IF NO.E SKIP 
CALL ERROR I 

#320, 9SR sh WITH 320 


66$ a 


PR PX F™ 





SO a | femme 
Pll 


a 
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: 
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O- 
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P29 Gh 4 ho fa bao he ae Ro hpi GG coe 


BRI IAseneedesoy 


a8 
St=tata) 
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a8 
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RUF SA ORRIN TRR ISITE OC ESS 
0 te 
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OPE 
V #0, aM0 
MOV #0, aac 
CMe «OTSAG. 
rs 
HLT 

wed ana 
sro ték 
HLT 

68$: 
CMPB 836, aS 
BEQ 693 
HLT 

695: 
SCOPE 
MOV 8125252, ame 
MOV #-1, aAC 
ey Be 
CMP 
BEQ 70$ 
HLT 

70$: 
CMP #152525, aM@ 
BE 71$ 
HL 

718: 
CMPB #320, aSR 
BE 72 
HL 

723: 
SCOPE 
tad , ang 
MOV + tv 
4 gh ont 
Q 7 
HLT 

738: 
CMP #25252, aM 
BE 74S 
HL 

74S: 
CMPB #0, aSR 








BEBE 
SEES 





;IF NO. 
;CALL INE 


;CALL ERROR 

EM ae WITH 25252 (QUOTIANT) 
;1F No, EAROR raat ; 

;CALL ERROR ROUTINE 





Sead 
14120 
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to 
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ae 
nov 1B, 
CMP #0 she 
BE 76$ 
HL 

768: 91.0 
SoC 
HLT 

773: 
CMPB s22,aSR 
BEQ 78$ 
HLT 

78$: 
SCOPE 
MOV #0, 3MQ 
MOV 3, aAC 
posh #1 22 ,aDIV 
fro 
HLT 

79S: 
CMP #100000, aM@ 
i 80S 

80S: 
CMPB ,aSR 
BEG 81 
HLT 

81S: 
Bt 
MOV sedes aAc 
MOV #125252, aDIV 
CMP #1, aAC 
BEQ ge 
HLT 

82S: 
CMP #100000, aN@ 
BEQ 83s 
HLT 

83S: : 35R 
A 84 
HLT 

64S: 
SCOPE 


te ae ee ee ee ee 





ae 
ie Baas -1 AND DIV 
CrP AC ae HO (REMAINDER) 


MQ WITH 1 (QUOTIANT) 


-C 
IF ae Ck - HLT 
:CALL ERROR ROUTINE 


: COMPARE sR yITH 22 
;IF NO.ERROR SKIP 
:CALL ERROR ROUTING» 


me 
WITH 
IF cegitent = 
>CALL ERROR INE 


JF, NO. ERROR eit 

ee 

SCALL ERROR ROUTINE 
Sk 


;CALL ERROR ROUTINE 


100000 (QUOTIANT) 


; TEST OF DIVIDE 
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ITH 4C900 (QUOTIANT) 
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;LOAD DIV WITH 77777 AND DIVIDE 


CALL ERROR ROUTINE 
+ COMPARE 
: ERROR SKI 
ERROR 
COMPARE 
ERROR SKI 
ERROR 


’ 
’ 
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a01V 
aac 
ang 


5 ess 


BE Od Og ed ad gd hd ms 
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REE a: : 
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;COMPARE MQ WITH 40000 (QUOTIANT) 


ERROR 
sIF NO.ERROR SK 
*CALL ERROR ROUT 


100S: 
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; TEST OF SUCCESIVE MULTIPLIES 
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#2, INUL 
#2, JMUL 
#2, JMUL 


eggeo a 


aAc 
1138 


oe 






;IF NO.ERROR SKIP HLT 
RROR ROUTINE 


; TEST OF SUCCESIVE DIVIDES 


SKIP HLT 


;CALL E ROUTINE 


;1F NO ERROR Pate HLT 
;CALL ERROR INE 


CK STATUS 22 
SKIP HL 


C 
ROUTINE 


;TEST OR ALTERNATE MUL AND DIV 
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;SAVE WITH DIVIDE 
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DEV: 
Tilia 1-1 k-th 
: AT THIS POINT MULT AND DIV ARE OK 

5 SRRRREA ELLA TAAL EL LRA AERA AE REAR A RA LARA AREA RRELAL EE ERLE EE RRELES 
{He EHH HERE EEEE EEE EEE 


L 
ETTET TTT rrerier ert erterrrst er err er er err er errr Ter errr TTT TTT TT tee 


JSR %7 , CKSWR ;CHECK FOR CONT-G 
BIT #2000, aSWR 
BNE TRTRAP 
MOV #207, 08177566 
oe ee: take TP READY BIT (BIT P)20CCNO. LOOP 
Foy BSA. XS sAE READY BLT 
JSR %7, TTOUT 
5; REARAAALALLLALE LEAL LAA LE ALLL AA FLA RAAAAELEL ALLE ELLA ERLE LE LELES 
: ROUTINE TO CHECK FOR TRACE TRAP TO BE RUN WITH 
saneunaniteatdtertensantesnnannersaattnatlaertoianen 
Bit #10908 SSWR TOOL WE RON. WaTH TRACE TRAP 
BEQ YESTR : YES : 
TST YESTRI iNO HAVE RAN WITH TRACE TRAP ON 
Q T IF SO RESTORE PREVIOUS CONTENTS 
MOV YESTRI, 14 
MOV STR2, | 
BIC CLEAR TRACE TRAP 
TRPA: JMP BEGIN :START OF TEST WITH TRACE OFF 
TRPB: 0 
: SAVE OLD CONTENTS, SET UP FOR TRACE TRAP 
YESTR: MOV 14, YESTR ;SAVE ODT PC 
MOV 16; YE ;SAVE OOT STATUS 
MOV ie yesh *NEW TRAP VECTOR 
CLR 16 *NEW CONDITION CODES 
CLR PSW 
COM TRPB 
BNI 1$ 
ms BI #20,PSW ;SET TRACE TRAP 
IMP BEGIN START OF TEST WITH TRACE ON 
YESTRI: | sSTORAGE FOR ODT PC 
YESTRe: a ; STORAG FOR ODT STATUS 
YESRT: RTI “. URN TO PROGRAM FROM T 
2 HALT PRTI FAILED 
: ENTERED WITH SYSTEM TRAP CALL(HLT) 
: PRINT OUT THE ERROR PC AND STATUS REGISTER 
PRINT: J 47, CKSUR ;CHECK FOR CONT-G 
BIT #2000, aSWR 
BEQ PRNT 
MOV #7, 98177566 
64S: TSTB  aTPS iT TTY READY FOR NEXT CHARACT 
64S READY BIT (BIT 7)=0--NO, L 
PRNT: %7 , CKSWR heck FOR CONT-G 
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Qe x 
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ws , #20000 


(B} +, NE 
-(6), 

215" aPB 

aTPS 


oe) 
43 


as 


SEES 

Rts 

as US 
ae 


BINCT 
TCT 


WG 
#LIST,%4 
#177, TPS 





; TEST FOR INHIBIT PRINT OUT 


ICE OF ERROR CONDITION 


;REPOSITION THE STACK 


TS TTY RCADY FOR NEXT CHARACTER? 
;1F Beny ert (BIT 7)=0--NO, LOOP 


tL EE 
1S TTY READY FOR NEXT CHARACTER? 
i IF IF READY BIT (BIT 7)=0--NO, LOOP 


;PRINT OCTAL NUMBER 


18 TTY READY FOR NEXT CHARACTER? 
;1F READY BIT (BIT 7)=0--NO, LOOP 


;PRINT OCTAL NUMBER 


;1S TTY READY FOR NEXT CHARACTER? 
IF READY BIT (BIT 7)=0--NO, LOOP 


;PRINT OCTAL NUMBER 


;1S TTY READY FOR NEXT CHARACTER? 
IF READY BIT (BIT 7)=0--NO, LOOP 


;PRINT OCTAL NUMBER 
sRESTORE REGISTERS 


;CHECK FOR CONT-G 
CHECK SR FOR HALT SWITCH 


; HALT ON ERROR 
; GET SWITCH AFTER HALT 
CHECK FOR CONT-G 


;RETURN TO MAINLINE 


;DATA 
;STATUS 


;GET LIST ADDRESS 
;CLR INT FLAG 





z 
5 


— 

Hat 

— 
NNN 


oO 
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8 
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SIF RERURTERAON TERE 


N“N 


FC ce Pees reece 


OOOOOOOOOOO OOO OOOO OOO9 OOO GBOOOOO0000000 


pie ao Bit Bes bP he he Pes Ft 8 Bt ae Be a Be Be ee be bm Pt BG be hm Bs Be Pee ee Be fae be hs fe Be 


as 


ee 


WWWWWWWWWWG WW) 

ee eh ee 
SSSVFREGHH—O 

NNNNNNNNNNN SNS 

EHSSRERSRERGSESSKLS 


eSSeeecee 
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o0g? Ou0ses y SEEN 
00000 





1 000214 beet MOV 
177716 64$: TSTB 8 31S TTY RE xT CHARACTER? 
BPL ols it? READY B } ( IT 7}=0--NO, LOOP 
ies (aan a if 
750 000260 177700 MOV MES PB iBbg ete PRINT 5 
000403 BR START 
Rear, 77670 i: ORY RST Pur mas 3 
000150 " Mov 2, TOODLE GET READY T0_ DOODLE NUMBER IN TOODLE 
gon TOOL ere, watt TR OC TAL CEHERACTER 
N00 000136 MKNUM a beCRL WGTCT eet eT ohm 
B51 38 : sits cr : CORD 
000126 CHP UGTCT x3 ee ai WEIGHT 
000260 000120 WRTOC: ADD #260, BINCT 
000114 MOV INCT, (4)+ iL EAST cry Cre che IN LIST 
500100 _— err peepee 
000076 CLR BINCT 
_ BEQ XLIST 3S CHAR IN LIST 
000003 MOV #3, %3 :SET X3 FOR ADD LOOP 
0000S2 O000SO0 MOADD: ADD SEVEN, SEVEN :MAKING SEVENTY BY SEVEN 
BNE MOADD 
BR START p Nx SEVEN SET GET NX OCTAL 
oo0000S co0044 xLIST: MOV #5, ASCNT TO TTY 
177540 64$: STB  @TPS 31S TTY READY FOR NEXT CHARACTER? 
BPL 64 IF READY BIT (BIT 7)=0--NO, LOOP 
177530 MOV -(4) . aTPB 
DEC aAscnt 
BEQ HDF 
se BR WAIT2 
177516 64S: TSTB aTPS : TTY. ADY FOR NEXT CHARAC TER? 
RTS 7 : 
TOODLE: 4 
SEVEN: 
DECML: 
WGTCT: 
BINCT: 0 
ASCNT: QO 
LIST: 0 
0 
0 
0 
0 
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; 
: 


Bs bo Pha ope 
ee ee ee ee ee 


NNNNNNSINS 
Ob be bs bs ep Pe 
SNSFHSNFS 


BASS BR 


QO000 BOOOOKOOOOO0OO000O O20 2O0000000 


“ 


WII GIGI GIGI GI) GI WI WI GI GI GI GI G0) GIG) GG) GI) GGG) GG) GI) GG) GJ CG) Gd) GJ GI GI GG Gd CI GI GI GI GIGI GI CUI I GIGI 


FILOO SSO COM OSS eA LOSES SOI RRE SOS RUN PORES 


---—-—- 
i 





5p RRRERARRAAAREREAA LER RAA LALA LRA LLL AEA AAAA AREAL SRE LEAS RR EAA ELE RE 


: ENTERED BY USER TRAP 
5p RRRRREREE LA RE LALLA ALARA ALLE RA LALLA E LARA AE RELL LALA LERERA ERE REESE 


SCOPEA: 


SCOPEB: CMP 
MOV 


SCOPEC: Hed 
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S000, oh 


ae OP RETURN 


SB, 
RETURN 


0%6 , RETURN 


200 


; SCOPE 
;NO_- 






CHECK FOR CONT-G 
BIT IS A ONE 
SAVE %7 FOR NEXT TIME 

RETURN IN SEQUENCE 
REPOSITION THE STACK 
;SCOPE RETURN 
;CHECK FOR CONT-G 
;TEST SR FOR SCOPE 
OPE opr AND ITERATION LOOP FOR EACH TEST 400 
i CHECK 
i TRHTB! 


ITERATION 


;FOR STACK POINTER 40 LOCATIONS 


| HHHEHHHEHEHHHE HEHEHE HEHEHE HEHEHE EEE 
CHECK aire REGISTER ROUTINE. CHECKS FOR tG TO ALLOW CHANGING 


riiiitittiritirttittiiitiiiitiiiitiiitiitititittiittiititiits 


FOR CONT-G 
ST_FOR ITERATION 





















NOS 
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tte, ee 7? 000176 160462 regen MP SSWREG, SWR SOFT SWITCH REGISTER PRESENT 
ie ° 
ibe Biosee BEETS ge Ot«Te RO. Ger out 
3169 aires 105777 177254 STB aTKs s YES HALT FOR act . 
3120 1oaee 177250 177752 MOV SKE TIB . y oo STRIP Re 
17@ 17374 ? 177744 BIC #177600, T18 : THE 
1 1 ? 177736 CMP 2 IS IT A <t@ 
174 01741 i 4 BNE out 
175 gale 2 771 MOV #SCNTG, 4S 
159 Oioves OieveS BIT? omn a ae 
3178 017426 id Shouse JSR %7, TTOUT 
3179 Ol 7se 17708 160402 HOV SSHR Re 
3180 ee nye ian MOV SSMNEW, 4S 
3182 017446 004767 O00400 JSR %7, TTOUT 
3183 0174S2 005067 1 SREAD: CLR TEMPST 
184 17456 012767 177656 MOV #7, COUNT 
1 17464 767 1S4 1S: JSR 47° TTIN GO READ A CHARACTER 
186 017470 042767 177600 177650 BIC #177600, TIB :STRIP OFF GARBAGE 
187 017476 000025 177642 CMPB =s«#2S, TIB ‘IS IT A tu? 
188 17504 BNE os ?BRANCH IF NOT 
186 BIzet >? oooois 177620 2e, RRP eis t18 ene OVER? 
3130 pi zete nate hf : *BRANCH IF NOT 
3192 017520 012705 017724 MOV , 
us Sire Seer Bitte =e esciat 
1 1 ? 177604 MP #7; COUNT ;WAS IT FIRST CHARACTER 
3195 017536 001036 7§ :CHANGE SWR IF NOT FIRST ONE 
31% ot 8S: BR OUT :GET OUT 
3137 : 22767 O00060 177576 4S: CHP #60, TI 
3133 ot 22767 O00067 177566 CMPB 467,118 
3201 pt 012705 017751 S$: MOV #SQUEST, 4S 
#202 01 004767 000260 ISR 47, TTOUT , 
01 BR 3$ ;START OVER IF NOT LEGAL CHARACTER 
Se tire See ee Te 
3206 017604 177530 ASL TEMPST 
3207 17610 142767 177530 BICB 4#60,TIB GET NITTY-GRITTY 
17616 156767 1 177514 BIS8 TIB'TEMPST 
3203 Oi7bes ? 177512 C COUNT sONLY WANT 6 DIGITS 
10 O01 1 Q S$ 7 
3211 017632 000714 BR 1$ 
3212 017634 016777 177500 160176 7$: © MOV TEMPST, ISWR ;CHANGE SWITCH REGISTER CONTENTS 
3213 O17E42 OUT: RTS “7 RETURN TO PROGRAM 
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COEUR EHS iS SSS SIN AELS 
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Sass egeT? 
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secant TY REDO, SUBROUTINES a uneaveaeens 


UBROUTINES#eeeeeeee 


Y READ 
s FRLELSFESLSLLSLSLALELELSLAALLASSRASLAL ALES SLLSELLSLALAELS LLFLSS 


TTIN: 





aTKB, TI8 


#18, a7Pe 


%7 

*etG 38° 

%e , 
*eSWh= 8° 
* NEW= 8’ 
%e? of’ 


"ERE OK + 8’ 


** MAINDEC-11-D2KEB-A 8’ 


** KE11 LOGIC TEST 8° 





sFIRST CHAR FLAG 


XT_ CHARACTER? 
gir }=0--NO, LOOP 





CO6 
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; ; jPORORURERASEREEEAEEEESEDSERESOREREEEEEHEHEREEOESEOOOREEREEEEEEE 
2 Y ASCII OUTPUT ROUTINE 
: 3 eenesenenEEESSHESEEOGSAGHOS EO HEEEEEEOHO EEE HEHEHE ES 
=! TTOUT: 
a TSTB. 2s (5) CHECK FOR NULL CHARACTER 
1200! BEQ 15 IF NOT, TYPE THE CHARACTER 
CHP #8, (5) ‘CHECK FOR TERMINATOR 
i JEMPTY 
: 176540 1S: BIC #100, aTPS 
x CLR , CLEAR POINTER TO CHARACTER 
i RTS % 
EMPTY: CHP #245) ‘CRLF CHAR? 
Ee CMPB sé’! (S) ;CHECK FOR RETURN TERMINATOR 
a BEQ REST 
64$:  TSTB  atPs if TTY READY FOR NEXT CHARACTER? 
BPL 64S READY poy BIT (BIT 7)=0--NO, LOOP 
i I: MOVB d+, 2TPB CHARACTER 
1 RET: Fc “5 
1 MOV %5 SAV SET UP NEW POINTER 
ig HOV a Re R,%S 
1 REST: MOV SAV, %S 
oe 146 BR tTout 
3289 020150 O41 .RETR: .BYTE 15,12,’! 
3290 "EVEN 
gy ous °a0 


ee. GD 








DO6 
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-- USER SYMBOL 


Yl} e7(73 
ET 


-A 
CROSS REFE 


sass 


C-1 
Pl 


I 


Estates 
eee 


7on Snr2e Wa 
See ieee ieee heen hare eee Roe 0) 


UST ino 


bsebeeet kemeaagee 
sSisniviataiclncts 


8 ow oe wh oe rw 


An 


Dae ERSSERENS ENTS 
Sea et 


sbaiicietahaiat 


mt it ie oie 


Rerae Sea Rar aMeRea=e 


Cn oe Ree oe eo ore) 


fetadtairiahalsdonb-BatEgtaSe 


Hd ad Oy 9 4 od 
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3120 
eerigs 26S6# 


ie 


4S4 455 


Gee eee 
Pett) Boi getgesxhe 


DEERSBSURAERD 


oe ge 
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FAGRE RESO RST 
AUR RISO ae 


en ah Oo 
Se Eee Meee Ben Moos Boe 


PRsOP BRIS ORAS 


cad eh ee 


po A eae A 


ed eg ot 


SPOS Bose sais 


a HG ed eG 


FPRaP eo Se sas 


ed od eg eo 


POR Sraunee aaa 


ob eg ey 


Pe RSs cosa 


Hb od Ge 


paw bg sSeAvi 


SS oa be te g 


FAS SOBLARALERS 


eh Oe hd ee 


OFF de aa RES RENCRERERRR 


ee oe ee ie oe 


ars 


E06 





SSE A ERERR RR 
Se Ee ARERR Re 
Senge oO SURGE 
TaN SE URE EAR 
FS San eoee 

non Bb Ee SU LGeeee 
Poa R ae Sanaa 


_ SERRE REESE 
2 EaRae era 
| DERE 
a ARE 
ay Biauteseenmeerraeeaiess 


ee Doe oe koe D 


DOKEBACPHL CROSS REFEREHRE’T 





ci ge ue ee 
ee 


951% 1969%  1987% 
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Sage See 


$08 
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eg 


Ss 
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3828 
abies 
3338 
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Toe ne 
4 ssbocteeaaic Sere, § peer 
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SUSWR 000254 344 3618 - 

SWR 000040 a" sic? ti Bigs S24 2396 2956 2968 23997 3003 3039 3l2i 3130 
G 176 & d 

Fenee ieee Sl6le 3183% 3204 3205% 3206% 3208% 3ele s 

TIB 017346 @ 3171% 31728 3173 3186% 3187 3190 3197 3199 3¢97% 3208 3226% 3230 


pe 





31468 32908 





3378 8631468 32568 


TKB 016642 # 3171 322e5* 3230 
TKS 16640 set 3169 secke 3227% 3228 
TOODLE 9171 ¢ a # 73 31038 
we 1 lek * * 3030% 30498 3067 3069% 3095* 3234%  3280% 
Ol 10 3013 3021 3026 3031 30508 3058% 3063 3093 3100 3232 
3270% 3278 
TRPA 16244 1 29758 
TRPB 16250 ® 2964s 
THN OL Soes8 
ne 2 
TT tats 343 2962 3176 3178 3182 3193 3202 32658 3281 3287 
WGTC 171 Det 3c. 3077 3082 31068 
WRTOC 017002 30798 
XLIST 017060 3085 30918 
YESRT Ol 238 a 
Try Ot ‘ 29908 
Sais 
SCNTG 017716 3175 32378 
ur 17724 345 32388 
17757 1 8 
SHAIN a2 : 
Sew B17 740 ‘ai is 
17730 S17? Seas 
1 32438 
1 
1 


En 
ve 





ah tis eB, 
Bh. eee orm 
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SSS 
SzZs 
ae 
Ree 






SRSRSDgLuA Tash OPM oN eRaRe Re 
PSR AGERE eee eee NRT Ree Fs 
POR SRY ERE aaa e ee ANE CORR aE 
PRSRBES SAN MaRee SNR eee sas 
FHRUES ns RaSh eee eNS 


PBR DoS veins sae er RRs, ae 


ean od Eo ed GB Ht 


Beak aoe sane Poe eee TGR 
= 


8 dh Oh 9d 9 


TRISUASSNRRE UPN RR RENE BRES 


FSSA s ww 


2 SUR UCOR Mar FUR URE REBT EEN nay 


Dh od ah Oh 9 9 Ow 4 


STUCERMaMah aBREaprArEsaERS 


Si 

169 
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3100 3232 @8©=©63278 


aise 






1363 
3063 3093 


Sigs 


1174 
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5 
3021 3026 


a ad ad md wd ww 


Ere i ONS Ce tase eta BRED 
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3013 
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Yl *nenfe tie heal PAGE 7S 


CROSS REFE 
385 oa 
3000 863010 
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Eicozoediooee | SESEEEEE Gas 
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CROSS REFERENCE TABLE -- PERMANENT SYMBOLS 


11-D2KEB-A 


5 BB 
Sts Se Raritan E aN 
SPR SRU ARS aseeORRENGeMeCe RA Ruocate bate ARRSSNS 


PuRBS EAM anon Oe SNe 


POR SRE SNe SMO Se eae Re Ce 
FESR SHE ahs Daa aO Re TUN ee 
FENG SSRRE OSes Seen CURES 
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Sosa Ngee yy a 
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dd OG Og Oe ed ed ee 
Oe Re ee eee Ree Be Re ho ero 


PRU NaRBe SEN Param e Dee ae haa 


Ed ad gt Hg ey 


sao WATE RECITES 


SESS RINSE RUT MARR ah aTRS 


Rd eB wd eet gd 


asad RSET RECN 
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SSSR ERS 
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eSB Seg BReBeeh 
S28 bkg FREESEa 
Seg Brgy POSSE 
SS q Utah SSsgere 
ae URN SRRReY 
See Gey FBSaes 
SSN 8 segs Soeeees 
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RENE BaeeeEy 
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